home *** CD-ROM | disk | FTP | other *** search
/ HPAVC / HPAVC CD-ROM.iso / PASSRC.ZIP / PROCED4.PAS < prev    next >
Pascal/Delphi Source File  |  1991-02-04  |  1KB  |  45 lines
  1.                                 (* Chapter 5 - Program 4 *)
  2. program Scope_Of_Variables;
  3.  
  4. var Count : integer;
  5.     Index : integer;
  6.  
  7. procedure Print_Some_Data;
  8. var Count, More_Stuff : integer;
  9. begin
  10.    Count := 7;
  11.    Writeln('In Print_Some_Data Count =',Count:5,
  12.                                          '  Index =',Index:5);
  13. end; (* of Print_Some_Data procedure *)
  14.  
  15. begin   (* Main program *)
  16.    for Index := 1 to 3 do begin
  17.       Count := Index;
  18.       Writeln('In main program Count  =',Count:5,
  19.                                           '  Index =',Index:5);
  20.       Print_Some_Data;
  21.       Writeln('In main program Count  =',Count:5,
  22.                                           '  Index =',Index:5);
  23.       Writeln;
  24.    end; (* Count loop *)
  25. end. (* main program *)
  26.  
  27.  
  28.  
  29.  
  30. { Result of execution
  31.  
  32. In main program Count  =    1  Index =    1
  33. In Print_Some_Data Count =    7  Index =    1
  34. In main program Count  =    1  Index =    1
  35.  
  36. In main program Count  =    2  Index =    2
  37. In Print_Some_Data Count =    7  Index =    2
  38. In main program Count  =    2  Index =    2
  39.  
  40. In main program Count  =    3  Index =    3
  41. In Print_Some_Data Count =    7  Index =    3
  42. In main program Count  =    3  Index =    3
  43.  
  44. }
  45.